The Genius of Edison/The Genius of Edison (Version 1.0)(Softkey Multimedia)(GOE744AE-CD)(1996).ISO/pc/data/shared.cst/00071_Script_WAITTICKS

Text File | 1996-09-03 | 754b | 27 lines

-- -----------------------------------------------------------
-- Handler waitTicksProcessFrame performs a delay by waiting until the given
-- number of ticks passes. It also processes the frame.

on waitTicksProcessFrame howMany
  put the ticks into startTicks

  repeat while the ticks < startTicks + howMany
    processFrame
  end repeat
end

-- -----------------------------------------------------------
-- Handler waitTicksNoProcess performs a delay by waiting until the given
-- number of ticks passes and does not process the frame.

on waitTicksNoProcess howMany
  put the ticks into startTicks

  repeat while the ticks < startTicks + howMany
    if the mouseDown then
      exit
    end if
  end repeat
end